home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / shuffle.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  78 lines
  1. 99 REM     VIC VERSION BY
  2. 100 REM (C) PET BENELUX
  3. 110 REM     EXCHANGE
  4. 120 REM     NETHERLANDS
  5. 121 REM**TRANSLATED FROM THE DUTCH,     UPGRADED & REVISED BY ROGER D BURGE
  6. 122 REM**ADAPTED TO THE COMMODORE 64 BY ROGER D BURGE, #2667
  7. 123 REM*TORONTO PET USERS GROUP, CANADA
  8. 130 GOSUB610
  9. 140 PO$=""
  10. 150 DIMA(16),B(16):TB=0:POKE53280,1:POKE53281,1
  11. 160 PRINT"[147][144]       SHUFFLE       "
  12. 161 PRINT""TAB(TB)"[176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]"
  13. 170 FORI=1TO4:FORJ=1TO3:PRINTTAB(TB);"[144][221]    [144][221]    [144][221]    [144][221]    [144][221]":NEXTJ
  14. 180 IFI<4THENPRINTTAB(TB);"[144][171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
  15. 190 NEXTI:PRINTTAB(TB);"[144][173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]"
  16. 195 PRINT"^ = RESTART/ _ = QUIT"
  17. 200 PRINT"[144]                  I[157][157]J[146][209]K[157][157]M
  18. 210 [129]I[178]1[164]16:A(I)[178]I:[130]I
  19. 220 [129]I[178]15[164]2[169][171]1:J[178][187](1)[172]I[170]1:T[178]A(J):A(J)[178]A(I):A(I)[178]T:[130]I
  20. 230 [129]I[178]1[164]16:B(I)[178]A(I):[139]B(I)[178]16[167]BS[178]I
  21. 240 [130]I
  22. 250 C[178]0:[129]I[178]1[164]16
  23. 260 [139]A(I)[179][177]I[167]T[178]A(I):A(I)[178]A(T):A(T)[178]T:C[178]C[170]1:[137]260
  24. 270 [130]I
  25. 280 [139](C[175]1)[178]0[167]320
  26. 290 I[178][181]([187](1)[172]16)[170]1:[139]B(I)[178]16[167]290
  27. 300 J[178][181]([187](1)[172]16)[170]1:[139]B(J)[178]16[176]I[178]J[167]290
  28. 310 T[178]B(I):B(I)[178]B(J):B(J)[178]T
  29. 320 [153]"":[153]"";
  30. 330 [129]I[178]1[164]16[169]4:[129]J[178]0[164]3:[153][163]TB[170]J[172]5[170]2);
  31. 340 [139]B(I[170]J)[179]16[167][153]""[201]([196](B(I[170]J)),2);
  32. 350 [130]J:N[178]0:[153]"":[130]I:[153][200](PO$,22);N;"TURNS"
  33. 360 [161]Z$:[139]Z$[178]""[167]360
  34. 370 [139]Z$[178]"^"[167][138]
  35. 375 [139]Z$[178]"_"[167][153]"LOAD":[128]
  36. 380 [139]Z$[178]"I"[167]Z$[178]"8"
  37. 381 [139]Z$[178]"M"[167]Z$[178]"2"
  38. 382 [139]Z$[178]"J"[167]Z$[178]"4"
  39. 383 [139]Z$[178]"K"[167]Z$[178]"6"
  40. 390 [139][197](Z$)[175]1[167]360
  41. 400 [145][197](Z$)[173]2[137]470,450,430,410
  42. 410 T[178]BS[170]4:[139]T[177]16[167]360
  43. 420 [137]480
  44. 430 T[178]BS[171]1:[139](3[175]T)[178]0[167]360
  45. 440 [137]480
  46. 450 T[178]BS[170]1:[139](3[175]BS)[178]0[167]360
  47. 460 [137]480
  48. 470 T[178]BS[171]4:[139]T[179]1[167]360
  49. 480 B(BS)[178]B(T):B(T)[178]16
  50. 490 I[178][181]((BS[171]1)[173]4):J[178]BS[171]I[172]4
  51. 500 [153]""[200](PO$,I[172]4[170]5):[153]"ON"[163]TB[170]J[172]5[171]3)[201]([196](B(BS)),2)
  52. 510 I[178][181]((T[171]1)[173]4):J[178]T[171]I[172]4
  53. 520 [153]""[200](PO$,I[172]4[170]5):[153]"ON"[163]TB[170]J[172]5[171]3)"  "
  54. 530 BS[178]T:N[178]N[170]1:[153]""[200](PO$,22);[196](N);" TURN";:[139]N[177]1[167][153]"S
  55. 540 PRINT"   ":IFBS<16THEN360
  56. 550 FORI=1TO16:IFB(I)<>ITHEN360
  57. 560 NEXTI:PRINT"[147]"LEFT$(PO$,20);"YOU FINISHED IN":PRINT""N"[146]TURNS"
  58. 570 PRINT"PLAY AGAIN?";
  59. 580 GETI$:IFI$=""THEN580
  60. 590 IFI$="Y"THENRUN
  61. 595 IFI$="N"THEN1000
  62. 600 GOTO580
  63. 610 POKE53280,10:POKE53281,2:PRINTCHR$(14)
  64. 620 PRINT"[147]                [211][200][213][198][198][204][197]!                "
  65. 630 PRINT"[212]RY TO REARRANGE THE ";
  66. 640 PRINT"NUMBERS IN PROPER  ORDER";
  67. 650 PRINT" USING THE [201], [202], [203] AND [205] KEYS.
  68. 660 [153]" (null)OU CAN MOVE A NUMBER ";
  69. 670 [153]"FROM ITS POSITIONTO  ANOTHER";
  70. 680 [153]" ONLY IF THE   NEXT SPACE IS EMPTY.
  71. 690 PRINT" [208]RESS THE ^[146] KEY TO START OVER
  72. 700 [153]" (null)RESS THE _WAIT TO QUIT
  73. 710 PRINT"               [199][207][207][196][160][204][213][195][203]!
  74. 720 [153]"         (null)RESS ANY KEY TO START         "
  75. 780 [161]A$:[139]A$[178]""[167]780
  76. 790 [153]"LOAD":[153][199](142):[142]
  77. 999 [151]53281,1:[151]53280,1
  78.